$txt_file=$ARGV[0];
open(FH,"<$txt_file") or die;
my @in=<FH>;
chomp(@in);
close(FH);
my @out;
my $gtf_file=$txt_file.".gtf";
open(OUT,">$gtf_file");
foreach my $line(@in){
		my @splitin = split " ",$line;
		my $chr = $splitin[1];
		next if($splitin[0]=~/tissue_type/ or $splitin[1]!~/chr/);
		my $start = $splitin[2];
		my $end = $splitin[2] + 1;
		my $anno = "sample";
		$anno = $splitin[0] if $splitin[0] ne "";
		print OUT "$chr\t$anno\texon\t$start\t$end\t0\t+\t.\n";
	#	push(@out,"$splitin[0]\t$splitin[3]\t$splitin[4]\texon\t$splitin[5]\t$splitin[6]\n");
}




close(OUT);